|
|  Buffalo Bill
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Buffallo Bill"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS   2
  WIDTH   9 * CW + 9 * 3 * COW
  HEIGHT  5 * CH
  ZeroToWin 104 - CARDSIN$2

| Foundations

  FOUNDATION
    X 0 * CW + 9 * 3 * COW / 2 + CW / 2
    First 1,1,h
    JoinOffset 1
    Y 0
    ID 2
  END
  FOUNDATION
    X 1 * CW + 9 * 3 * COW / 2 + CW / 2
    First 1,1,c
    JoinOffset 1
    Y 0
    ID 2
  END
  FOUNDATION
    X 2 * CW + 9 * 3 * COW / 2 + CW / 2
    First 1,1,d
    JoinOffset 1
    Y 0
    ID 2
  END
  FOUNDATION
    X 3 * CW + 9 * 3 * COW / 2 + CW / 2
    First 1,1,s
    JoinOffset 1
    Y 0
    ID 2
  END

  FOUNDATION
    X 4 * CW + 9 * 3 * COW / 2 + CW / 2
    First 13,13,h
    JoinOffset -1
    Y 0
    ID 2
  END
  FOUNDATION
    X 5 * CW + 9 * 3 * COW / 2 + CW / 2
    First 13,13,c
    JoinOffset -1
    Y 0
    ID 2
  END
  FOUNDATION
    X 6 * CW + 9 * 3 * COW / 2 + CW / 2
    First 13,13,d
    JoinOffset -1
    Y 0
    ID 2
  END
  FOUNDATION
    X 7 * CW + 9 * 3 * COW  / 2 + CW / 2
    First 13,13,s
    JoinOffset -1
    Y 0
    ID 2
  END

| Reserves

  FOR stack = 0 TO 7
    STACK
      X stack * CW + 9 * 3 * COW / 2 + CW / 2
      Y 4 * CH
      MAX 1
      FIRST 1,13
      DragUpto 1
      FLAGS PaintLast ClickFly
    END
  END

| Fans

  FOR row = 1 TO 2
    FOR column = 0 TO 8
      STACK
        X column * CW + column * 3 * COW
        Y row * CH
        DEAL 4, 1
        DRAGUPTO 1
        Max 0
        FLAGS ClickFly Paintright
        ID 1 
      END
    END
  END

    FOR column = 0 TO 7
      STACK
        X column * CW + column * 3 * COW + 3 * COW / 2 + CW / 2
        Y 3 * CH
        DEAL 4, 1
        DRAGUPTO 1
        Max 0
        FLAGS ClickFly Paintright
        ID 1 
      END
    END

END
